home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / comm / mail / YAM23.lha / YAM2.3 / Rexx / Example2.yam < prev    next >
Text File  |  2000-04-19  |  830b  |  17 lines
  1. /* Example2.yam - YAM ARexx interface example #2                      */
  2. /* $VER: Example1.yam 1.0 (14.03.99) © 1999 by M.Beck <mbeck@yam.ch>  */
  3. /* Gets the sender of the current message and selects all messages    */
  4. /* from the same sender. Requires YAM 2.0p7 or later                  */
  5.  
  6. OPTIONS RESULTS
  7. ADDRESS YAM
  8.  
  9. MailInfo STEM cmess.                            /* Get information about current message */
  10. FolderInfo STEM folder.                         /* Get information about current folder */
  11. ListSelect NONE                                 /* Clear selection */
  12. DO i = 0 TO folder.TOTAL-1                      /* Loop through whole folder */
  13.    MailInfo i STEM mess.                        /* Get information about message */
  14.    IF mess.FROM = cmess.FROM THEN ListSelect i  /* Select message if senders match */
  15. END
  16.  
  17.